// This is the environment file.

// Copyright (c) 2022 SpringHan

// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to deal
// in the Software without restriction, including without limitation the rights
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
// copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:

// The above copyright notice and this permission notice shall be included in all
// copies or substantial portions of the Software.

// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
// IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
// DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
// OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE
// OR OTHER DEALINGS IN THE SOFTWARE.

pub enum LispTypes {
    LispSymbol = 0,
    LispInterger,
    LispFloat,
    LispString,
}

// The macro to create Environment value.
// Form: Env!((xxx, xxx), ...)
#[macro_export]
macro_rules! Env {
    ( $( ($keyword:expr, $value:expr) ),* ) => {
        (
            $(
                ($keyword, $value),
            )*
        )
    }
}

// The macro to get length of Environment value.
// Form: Env_length(xxx)
#[macro_export]
macro_rules! Env_length {
    ( $var:expr ) => {
        {
            let tmp = format!("{:?}", $var).split(',').collect::<Vec<&str>>().len();
            if tmp < 3 {
                panic!("The Environment cannot be null!")
            } else if tmp == 3 {
                1
            } else {
                tmp / 2
            }
        }
    }
}

// The function
// #[macro_use]
// macro_rules! Env_find_result {
//     ( $var:ident, $ ) => {}
// }

#[macro_export]
macro_rules! Env_find {
    ( $var:ident, $val:literal ) => {
        {
            let length = Env_length!($var);
            for i in 0..length {
                if $var.i.0 == $val {
                    return $var.i.1
                }
            }
        }
    }
}
